home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 11
/
Cream of the Crop 11-1.iso
/
religion
/
calv1295.zip
/
CCSCRIPT.ZIP
/
CALVARY.SLT
< prev
next >
Wrap
Text File
|
1994-09-04
|
10KB
|
344 lines
// IMPORTANT: USE THE FOLLOWING GUIDES TO CHANGE THE DATA IN THIS
// SCRIPT TO MEET YOUR INDIVIDUAL NEEDS. USE THE MENTIONED
// FIND AND REPLACE OPTIONS LISTED HERE. IT IS VERY IMPORTANT
// THAT YOU ALTER ALL THE MENTIONED FIND AND REPLACE OPTIONS
// FOR THIS SCRIPT TO PROPERLY WORK ON YOUR SYSTEM.
// FIND "m630-7437" AND ADD A 619 AREA CODE IF NECESSARY. keep the "m"!
// FIND "D:\QWK\R" and REPLACE With your own REP "PATH" ONLY (no "\" at end!)
// FIND "D:\QWK\Q" and REPLACE WITH your own QWK "PATH" ONLY (no "\" at end!)
// FIND "D:\" REPLACE it with the DRIVE ONLY that your REP and QWK is in.
// FIND "SHEPHERD.LOG" and REPLACE with whatever you like for Transfer Log
// FIND "SHEPHERD.USE" and REPLACE it with whatever you want as a TELIX log.
// FIND "FIRSTNAME LASTNAME PASSWORD" and replace with your information.
// Leave the spaces between FIRSTNAME LASTNAME PASSWORD
// Replace only the FIRSTNAME LASTNAME PASSWORD. Leave the "'s.
// REMEMBER.. TO EXECUTE THIS SCRIPT, YOU NEED TO DO THE FOLLOWING:
// 1. RENAME THIS *.SLT FILE TO WHATEVER YOU LIKE.. LIKE SHEPHERD.SLT
// (ANY 8 characters preceeding the ".SLT"... keep .SLT ending.
// 2. FIND AND REPLACE THE ABOVE MENTIONED PARAMETERS
// 3. COMPILE THIS SCRIPT BY:
// a. make sure script is in the telix directory
// b. type "CS SCRIPTNAME" at the directory prompt
// 4. You will have to run TELIX in the following manner:
//
// TELIX Sscriptname
//
// EXAMPLE: TELIX Sshepherd <---- Notice the "S" then whatever.
//
// that's it folks.. have fun! John Scudder
// The Shepherd's Flock Family BBS
// 619-630-7437 or 619-630-7303
//
// CHANGE NOTHING!!! BELOW THIS LINE. CHANGE ONLY THE FIND/REPLACE ABOVE.
// CHANGE NOTHING!!! BELOW THIS LINE. CHANGE ONLY THE FIND/REPLACE ABOVE.
// CHANGE NOTHING!!! BELOW THIS LINE. CHANGE ONLY THE FIND/REPLACE ABOVE.
//The Telix script follows below:
str user_name[] = "FIRSTNAME LASTNAME PASSWORD";
str upfile[] = "D:\QWK\R\SHEPHERD.REP"; // upload path-filename
str dnfile[] = "D:\QWK\Q\SHEPHERD.QWK"; // download path-filename
str dialnum[] = "m630-7437"; // if manual dial delete below line
int dialqty = 600; // dial attempts
str doorname[] = "MAIL"; // SHEPHERD qwk hub door
int proto = 'Z'; //internal Telix zmodem
str buf[50];
str fspec[50] = "D:\QWK\R\SHEPHERD.REP"; //this name MUST BE UPPER CASE ONLY!
// for file search/compare
main()
{
dial_hub();
logon();
_alarm_on = 0;
_sound_on = 0;
timer_free(0);
track_free(0);
//check for extant SHEPHERD.REP packet to determine if attempt upload
// delete old SHEPHERD.qwk in invoking batch file if previous run ok.
if(filefind(fspec, 0, buf) != 0) goto up;
else goto down;
up:
waitfor("Cam-Mail Command?",3000);
delay_scr(5);
cputs("U^M");
delay_scr(20);
send (proto,upfile);
if (waitfor("Upload Successful!",2000))
{
dos("IF EXIST D:\SHEP1.rep COPY D:\SHEP1.rep D:\SHEP2.REP",0);
dos("copy D:\QWK\R\SHEPHERD.REP D:\SHEP1.rep",0);
dos("del D:\QWK\R\SHEPHERD.REP", 0);
ustamp( "upload was successful." , 1, 1 ) ;
}
//you might need a "^M" here as safety for stuck menu, but unstable with
//node 2 v.32 modem, so omitted. TIMER loop better solution
down:
waitfor("Cam-Mail Command?",2000);
delay_scr(5);
cputs("D^M");
read_it();
}
backup()
{
status_wind("making backup of SHEPHERD.QWK packet",10);
dos("if exist D:\SHEP2.QWK copy D:\SHEP2.QWK D:\SHEPHERD.3",0);
dos("if exist D:\QWK\Q\SHEPHERD.qwk copy D:\QWK\Q\SHEPHERD.QWK D:\SHEP1.QWK",0);
hangup();
cputs_tr("ATH1M0~^M");
ustamp( "SHEPHERD.QWK Backup successful." , 1, 1 ) ;
exittelix();
return;
}
dial_hub()
{
dial(dialnum, dialqty,1);
if (carrier())
{
return;
}
else
{
status_wind("Unable to connect",25);
hangup();
cputs_tr("ATH1M0~^M");
ustamp( "Unable to connect.",1,1);
exittelix();
}
}
logon()
{
// make backup copy of mail upload packet, "SHEPHERD.REP" just in case
dos("if exist D:\QWK\R\SHEPHERD.REP copy D:\QWK\R\SHEPHERD.REP D:\SHEPHERD.REP",0);
int stat,t1,t2,t3,t4,tmark;
//turn off sounds so I can sleep
_alarm_on = 0;
_sound_on = 0;
// trim or disable these logs periodically, they (particulary cnet.log)
// grow fast! This way you can check phone bills against .use and
// errors with cnet.log files.
capture("SHEPHERD.LOG");
usagelog("SHEPHERD.USE");
t1 = track("Enter Language # to use (Enter)=English?",5);
t2 = track("Do you want to see Color Screens? (ENTER = NO)?",5);
t3 = track("What is your Real First Name?",2);
t4 = track("Main Board Command?",2);
tmark = timer_start(9000);
while (!time_up(tmark))
{
terminal();
// cputs("^M");
stat = track_hit(0);
// Read the "English" prompt...
if (stat == t1)
{
delay_scr(5);
cputs("1^M");
}
// Read the "Graphics" prompt...
if (stat == t2)
{
delay_scr(5);
cputs("N Q NS^M");
}
// Read the "First Name" prompt...
else if (stat == t3)
{
delay_scr(5);
cputs(user_name);
cputs("^M");
delay_scr(5);
cputs("^M");
cputs("^M");
}
// at main board prompt
else if (stat == t4)
{
break;
}
}
if (time_up(1))
{
ustamp("Logon and initial entry sequence failed.",1,1);
prints("Logon and initial entry sequence failed.");
{
hangup();
cputs ("ATH1M0^M");
exittelix(0,1);
}
return;
}
timer_free(tmark);
track_free(0);
delay_scr(5);
cputs("^M");
delay_scr(5);
cputs(doorname);
cputs("^M");
return;
}
//end of logon, next sub is download receive
read_it()
{
int tmark, t1, t2, t3, stat;
t1 = track("Do you want to receive these messages (Enter)=Yes?",5);
t2 = track("Warning, download was aborted!",0);
t3 = track("Sorry, no new messages were found",0);
int proto = 'Z';
str upfile[] = "D:\QWK\R\SHEPHERD.REP"; // upload path-filename
str dnfile[] = "D:\QWK\Q\SHEPHERD.QWK"; // download path-filename
str buf[50];
str fspec[50] = "D:\QWK\R\SHEPHERD.REP"; //name MUST BE UPPER CASE ONLY!
tmark = timer_start(6000);
while (!time_up(tmark))
{
terminal();
if (!carrier())
{
hangup();
cputs_tr("ATH1M0~^M");
ustamp( "Carrier dropped." , 1, 1 ) ;
prints("carrier dropped");
delay(20);
exittelix(0,1);
}
stat = track_hit(0);
if (stat == t1)
{
delay_scr(10);
cputs("Y^M");
delay_scr(8);
receive (proto,dnfile);
//use the salt "run" statement to invoke external dsz
if (waitfor("Download Successful!",20))
{
ustamp( "download was successful." , 1, 1 ) ;
delay_scr(5);
}
if (waitfor("Cam-Mail Command?",20))
{
delay_scr(2);
cputs("^M");
cputs("G^M");
delay_scr(3);
}
// if (waitfor("(H)angup now or (Ctrl-K) to cancel",2000))
// {
// delay(15);
// delay_scr(10);
// cputs("H^M");
// delay(20);
// delay_scr(10);
// }
backup();
hangup();
cputs_tr ("ATH1M0^M");
ustamp( "Download attempted." , 1, 1 ) ;
timer_free(tmark);
track_free(0);
exittelix(0, 1);
}
if (stat == t2)
{
delay_scr(9);
if (waitfor("Cam-Mail Command?",2000))
{
delay_scr(10);
cputs("^M");
cputs("^M");
delay_scr(8);
}
cputs("D^M");
if (waitfor("these messages (Enter)=Yes?",2000))
{
cputs("Y^M");
delay_scr(8);
receive (proto,dnfile);
if (waitfor("Download Successful!",2000))
{
ustamp( "download was successful." , 1, 1 ) ;
delay_scr(5);
}
if (waitfor("(H)angup now or (Ctrl-K) to cancel",2000))
{
delay(15);
delay_scr(10);
cputs("H^M");
delay(20);
delay_scr(10);
delay_scr(10);
}
}
backup();
hangup();
cputs_tr ("ATH1M0^M");
ustamp( "Download attempted." , 1, 1 ) ;
timer_free(tmark);
track_free(0);
exittelix(0, 1);
}
if (stat == t3)
{
status_wind("track 2 ****",10);
timer_free(tmark);
track_free(0);
delay_scr(55); // delay in case SHEPHERD network delay
cputs("G^M");
delay(5);
hangup();
cputs_tr("ATH1M0~^M");
ustamp("No new messages" , 1, 1 );
exittelix();
}
if (time_up(tmark))
{
hangup();
cputs_tr ("ATH1M0^M");
prints("timed out");
delay(20);
ustamp("timed out dl" ,1 ,1 );
exittelix(0,1);
}
}
}